Application.ExecuteCommand("Set Group Origin")
Application.ExecuteCommand("Add Corner To Drafting", 0mil, 0mil)
DlgPrompt.Question("You have selected 0, 0 (0, 0).  Use this as the origin?").Answer(mbYes)
Application.ExecuteCommand("Create Reuse")
MakeReuse2Dlg.SaveToFile = true